;; Minimal test for define and set!
(display "Testing define and set!\n")
(define x 10)
(display "x = ")
(display x)
(display "\n")

(define (increment) (set! x (+ x 1)) x)
(display "(increment) = ")
(display (increment))
(display "\n")
(display "x after increment: ")
(display x)
(display "\n")